home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
SWDOS12
/
HTIME.ASM
< prev
next >
Wrap
Assembly Source File
|
1994-07-28
|
1KB
|
40 lines
;******************************************************************
;* HTIME.ASM *
;* Source file for SoftWeyr enhanced DOS toolbox *
;* version 1.0 *
;* Copyright (c) by SoftWeyr,1994 *
;******************************************************************
MODEL TPASCAL
LOCALS
.DATA
EXTRN DosError :word
.CODE
Public SetHandleTime
Public GetHandleTime
SetHandleTime Proc Far Handle:Word,DateTime:DWord
;Procedure SetHandleTime(Handle:Word;DateTime:Longint);
MOV BX,Handle
MOV DX,Word Ptr DateTime[2];Date
MOV CX,Word Ptr DateTime[0];Time
MOV AX,5701H
INT 21h
JC @@Error
XOR AX,AX
@@Error: MOV DosError,AX
RET
EndP
GetHandleTime Proc Far Handle:Word,DateTime:DWord
;Procedure GetHandleTime(Handle:Word;var DateTime:LongInt);
MOV BX,Handle
MOV AX,5700H
INT 21H
JC @@Error
XOR AX,AX
LES DI,DateTime
MOV ES:[DI],CX
MOV ES:[DI+2],DX
@@Error: MOV DosError,AX
RET
EndP
end